home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8503b.d64 / dark tower (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  29KB  |  711 lines
  1. 20 POKE53265,11:FORK=828TO875:READA:POKEK,A:NEXT:POKE785,60:POKE786,3:POKE788,52
  2. 30 DATA165,20,72,165,21,72,32,247,183,165,1,72,165,21,201,208,144,7,201,224,176
  3. 40 DATA3,169,49,44,169,52,120,133,1,160,,177,20,168,104,133,1,88,104,133,21,104
  4. 50 DATA133,20,76,162,179
  5. 100 FORK=13*4096TO14*4096-1:POKEK+4096,USR(K):NEXT:POKE53272,24:POKE56576,148:POKE648,196
  6. 230 CG=58368:P=36:FORK=CGTOCG+8*P-1:READA:POKEK,A:NEXT
  7. 240 DATA 227,127,156,197,127,156,227,127,231, 25,254,231, 25,254,231, 25
  8. 260 DATA 156,227,127,156,227,127,156,227,254,231, 25,254,231, 25,254,231
  9. 280 DATA 187,119,238,221,187,119,238,221,  1,  3,  6, 12, 31, 63,127,255
  10. 300 DATA    ,128,192, 96,240,248,252,254,127,127, 70, 70, 70, 71, 71, 71
  11. 320 DATA 252,252,100,100,100,252,252,252,160,224,224,160,224,160,224,160
  12. 340 DATA  10, 14, 14, 10, 14, 10, 14, 10,234,255,255,254,252,252,252,252
  13. 360 DATA 174,254,254,126, 62, 62, 62, 62,  1,  3,  3,  7, 15, 15, 31, 31
  14. 380 DATA    ,   ,128,192,128,224,240,240, 63, 31,127, 63, 15,  3,  3,  3
  15. 400 DATA 248,240,252,248,224,   ,   ,   , 13, 15, 31, 15,  9,  9,  9, 15
  16. 420 DATA 176,240,248,240,144,144,144,240, 15, 15, 31, 62, 60, 60, 60, 60
  17. 440 DATA 240,240,248,124, 60, 60, 60, 60,255,255,255,255,255,255,255,255
  18. 460 DATA    , 64,  4,   , 32,  2,   ,  8,  3, 15,  3,  3,  1, 31, 23, 23
  19. 480 DATA 128,226,130,130,  2,242,210,210, 31,  7,  3,  7,  6,  6,  6, 30
  20. 500 DATA 222,194,130,194,194,194,194,242,  1,  7,  4, 71, 99, 49, 31,  1
  21. 520 DATA 192,240,144,241, 99,198,252,192, 71,125,  1,  7, 28,112,   ,
  22. 540 DATA 241,223,192,240,156,135,128,   ,255,255,255,255,254,252,248,252
  23. 560 DATA 255,255,255,255,207,  7,  3,  3,248,240,240,224,240,240,224,224
  24. 580 DATA    ,   ,   ,   ,   ,   ,   ,   ,  3,  1,  3,  3,  1,  1,  1,
  25. 600 FORK=0TO62:READA:POKEK+49152,A:NEXT
  26. 610 DATA 255,255,192,128,,64,128,,64
  27. 620 DATA 128,,64,128,,64,128,,64
  28. 630 DATA 128,,64,128,,64,128,,64
  29. 640 DATA 128,,64,128,,64,128,,64
  30. 650 DATA 128,,64,128,,64,128,,64
  31. 660 DATA 128,,64,128,,64,255,255,192
  32. 670 DATA ,,,,,,,,
  33. 990 VC=53248:POKE51192,0:POKEVC+1,97:POKEVC,71:POKEVC+21,0
  34. 1000 DIMA$(12),B$(12)
  35. 1010 A$(0)="@A[157][157]BC[146][145]":B$(0)="   > MEER <   "
  36. 1020 A$(8)="[154]DD[157][157]DD[146][145]":B$(8)="  > FLUSS <   "
  37. 1030 A$(9)="[149]EF[157][157]GH[146][145]":B$(9)=" > SIEDLUNG < "
  38. 1040 A$(1)="[152]IJ[157][157]KL[146][145]":B$(1)="   > BURG <   "
  39. 1050 A$(4)="MN[157][157]OP[146][145]":B$(4)="   > WALD <   "
  40. 1060 A$(5)="[144]QR[157][157]ST[146][145]"
  41. 1070 A$(6)="[151]UU[157][157]UU[146][145]"
  42. 1080 A$(7)="[149]VV[157][157]VV[146][145]":B$(7)="  > EBENE <   "
  43. 1085 A$(2)=A$(1):A$(3)=A$(1):B$(2)=B$(1):B$(3)=B$(1)
  44. 1086 A$(11)="[144][213][201][157][157][202][203][145]":B$(11)="   > BOJE <   "
  45. 1087 A$(12)=A$(0):B$(12)=B$(0)
  46. 1090 A$(10)="[151]_ [157][157]!#[146][145]":B$(10)="  > HOEHLE <  "
  47. 1091 A$="[144]WX[157][157]YZ[146][145]":B$="[144][\[157][157]]^[146][145]"
  48. 1092 C$="ZUG NICHT MOEGLICH"
  49. 1093 D$="                  "
  50. 1094 F$="[144]DU WIRST VON JAEGERN"
  51. 1095 H$="DES DAEMONS ATTACKIERT"
  52. 1096 I$="DES DAEMONS UMZINGELT."
  53. 1100 DIML(30+2*4,30+2*4)
  54. 1110 FORK=10TO32:FORI=10TO30:READA:L(K,I)=A:NEXT:NEXT
  55. 1120 DATA ,,,,,,,7,7,7,,,,,,,,,,,
  56. 1130 DATA ,,,,,7,7,7,1,7,7,7,7,,,,,,,,
  57. 1140 DATA ,,,,4,7,7,7,7,7,7,7,7,7,8,7,,,,,
  58. 1150 DATA ,,,,4,7,7,7,7,7,7,7,7,7,8,7,7,,,,
  59. 1160 DATA ,,7,4,4,4,7,7,7,7,7,7,7,7,8,7,7,7,7,,
  60. 1170 DATA ,7,7,7,4,4,4,7,7,4,4,4,7,7,8,9,7,7,7,,
  61. 1180 DATA ,8,8,4,4,4,7,7,4,4,4,4,4,7,8,7,7,7,7,,
  62. 1190 DATA ,7,8,8,4,7,7,4,4,4,6,6,8,8,8,7,7,7,7,,
  63. 1200 DATA 7,7,9,8,7,7,7,4,4,10,6,6,4,4,4,7,7,7,7,7,
  64. 1210 DATA 7,7,7,8,7,7,7,4,6,6,6,6,6,4,4,7,7,7,7,7,
  65. 1220 DATA ,7,7,8,8,8,8,8,6,6,5,6,6,4,4,4,7,7,7,7,
  66. 1230 DATA ,7,7,7,7,7,7,4,4,6,6,6,4,4,7,7,7,7,7,7,7
  67. 1240 DATA ,,,7,7,7,7,7,4,4,4,8,8,8,7,7,7,7,7,2,7
  68. 1250 DATA ,,,7,7,7,7,7,7,4,4,4,4,8,7,7,7,7,4,4,7
  69. 1260 DATA ,,,7,4,4,7,7,7,7,7,7,7,8,7,7,7,4,4,4,
  70. 1270 DATA ,,7,7,4,4,4,7,7,7,7,7,9,8,4,4,4,4,4,4,
  71. 1280 DATA ,,7,7,9,4,4,7,7,8,8,8,8,8,4,4,4,4,4,,
  72. 1290 DATA ,7,7,7,4,4,4,7,8,8,7,7,7,7,7,7,4,4,4,,
  73. 1300 DATA ,7,7,4,4,4,4,4,8,7,7,7,7,7,7,7,4,,,,
  74. 1310 DATA ,,4,4,4,4,4,,,,,7,7,7,7,7,7,,,,
  75. 1320 DATA ,,4,4,4,4,,,,,,,,,,,,,,,
  76. 1330 DATA ,,4,3,4,,,,,,,,,,,,,,,,
  77. 1340 DATA ,,4,4,4,,,,,,,,,,,,,,,,
  78. 1350 FORK=0TO12:L(22,K)=12:NEXT:L(22,33)=11
  79. 1400 DIMC$(7),D$(7)
  80. 1410 FORK=0TO7:READG$:C$(K)=G$:NEXT
  81. 1420 FORK=0TO7:READG$:D$(K)=G$:NEXT
  82. 1430 DATA BOOT,RUESTUNG,LANZE,SCHWERT,HARPUNE,KOMPASS,LEITER,BUCH
  83. 1440 DATA SWIM,BEEM,KILL,HELP,FILL,KLAU,ANTI,BOMB
  84. 1500 DIMH(17,12)
  85. 1510 FORK=0TO17:FORI=0TO12:READA:H(K,I)=A:NEXT:NEXT
  86. 1520 DATA 80,48,48,48,48,48,48,48,48,48,48,48,40
  87. 1530 DATA 24,40,24,48,48,48,48,56,48,48,48,32,12
  88. 1540 DATA 28,44,12,24,48,48,40,12,24,48,48,40,12
  89. 1550 DATA 28,44,12,12,16,48,36,12,12,24,40,12,12
  90. 1560 DATA 28,44,12,20,48,48,48,36,12,12,20,36,12
  91. 1570 DATA 28,44,28,48,48,48,48,48,36,20,48,48,36
  92. 1580 DATA 28,44,12,24,48,48,48,56,56,48,48,48,40
  93. 1590 DATA 28,44,12,12,24,48,40,12,12,24,48,48,36
  94. 1600 DATA 28,44,12,12,12, 8,12,12,12,20,48,48,40
  95. 1610 DATA 20,44,20,36,12,12,12,12,20,40,24,40,12
  96. 1620 DATA 24,52,32,24,36,12,12,12,24,62,36,12,12
  97. 1630 DATA 20,48,40,12,24,52,36,12,12,12,24,52,36
  98. 1640 DATA 24,48,36,12,12,24,48,36,12,12,20,48,40
  99. 1650 DATA 20,48,40,12,12,12,24,48,36,12,24,48,36
  100. 1660 DATA 24,48,36,12,12,12,12,16,40,12,20,48,40
  101. 1670 DATA 20,48,40,12,12,12,20,48,36,12,24,40,12
  102. 1680 DATA 24,48,36,12, 4,20,48,48,48,36,12,12,12
  103. 1690 DATA 20,48,48,52,48,48,48,48,48,48,36,20,36
  104. 2000 POKE53281,15:POKE53280,14
  105. 2010 PRINTCHR$(8);CHR$(14);CHR$(147);"              [196][201][197] [204][197][199][197][206][196][197]:"
  106. 2020 PRINT" [197]S GESCHAH VOR SEHR LANGER [218]EIT IN"
  107. 2030 PRINT" EINEM KLEINEN [204]AND, DASS [196]REISTROMLAND"
  108. 2040 PRINT" GENANNT WURDE. [196]A RISS EIN BOESER"
  109. 2050 PRINT" [196]AEMON DIE [205]ACHT AN SICH,INDEM ER DIE"
  110. 2060 PRINT" DREI [198]LUESSE, DIE ZUVOR DAS [204]AND GE-"
  111. 2070 PRINT" RECHT REGIERT HATTEN, MIT [200]ILFE VON"
  112. 2080 PRINT" DREI GRAUSAMEN [210]INGEN UNTERJOCHTE."
  113. 2090 PRINT" [196]IE [205]ACHT DER [210]INGE KANN NUR GEBROCHEN"
  114. 2100 PRINT" WERDEN, WENN SIE IN DIE [200]AENDE DER "
  115. 2110 PRINT" [198]LUESSE KOMMEN. [213]ND ERST WENN DIES GE-"
  116. 2120 PRINT" SCHEHEN IST, KANN DER [196]AEMON MIT [200]ILFE"
  117. 2130 PRINT" DER DREI [198]LUESSE VERTRIEBEN WERDEN."
  118. 2140 PRINT" [196]ENN NUR DURCH DAS [215]ASSER DER [198]LUESSE"
  119. 2150 PRINT" KANN DER [196]AEMON WEHRLOS UND NUR DURCH"
  120. 2160 PRINT" DAS [215]ASSER DES [205]EERES UNSCHAEDLICH GE-"
  121. 2170 PRINT" MACHT GEMACHT WERDEN."
  122. 2180 PRINT"  [215]EITER HEISST ES, DASS DERJENIGE, DER"
  123. 2190 PRINT" DIES VOLLBRINGT, AUFS REICHSTE BELOHNT"
  124. 2200 PRINT" WERDEN WUERDE, DENN ER HAETTE DAS [214]OLK"
  125. 2210 PRINT" BEFREIT. [197]S HEISST DER [204]OHN BESTAENDE"
  126. 2220 PRINT" AUS ETWAS UNENDLICH [203]OSTBAREN AUS SEHR"
  127. 2230 PRINT" FERNEN UND NOCH IMMER GEHEIMNISUM-"
  128. 2240 PRINT" WOBENEN [199]EGENDEN DER [197]RDE. - [211]O LAUTET"
  129. 2250 PRINT"              [196][201][197] [204][197][199][197][206][196][197].           >>";:POKE53265,27
  130. 2260 POKE 198,0:WAIT 198,1:GET G$:POKE53265,11
  131. 2270 PRINT"[147] [196]AS [193]DVENTURE-[199]AME  [144][196] [193] [210] [203]  [212] [207] [215] [197] [210] "
  132. 2280 PRINT" VON  [210]OBERT [214]ALENTINER  BAUT AUF DIESE "
  133. 2290 PRINT" [204]EGENDE AUF. [218]IEL DES [211]PIELS IST ES    "
  134. 2300 PRINT" DEMNACH DEN [196]AEMON ZU VERTREIBEN UND   "
  135. 2310 PRINT" DAS [196]REISTROMLAND ZU BEFREIEN. [196]AZU    "
  136. 2320 PRINT" VERSTEHT DER [195]OMPUTER VERSCHIEDENE [194]E- "
  137. 2330 PRINT" FEHLE,DIE IM FOLGENDEN ERKLAERT WERDEN "
  138. 2340 PRINT"  [204][201][211][212] - [199]IBT EINE [213]EBERSICHT UEBER"
  139. 2345 PRINT"         [200]AB UND [199]UT. [211]TOPT DIE [218]EIT"
  140. 2350 PRINT"  [211][193][214][197] - [211]PEICHERT BISHERIGE [197]RFOLGE"
  141. 2355 PRINT"         ODER [205]ISERFOLGE AUF [194]AND/[196]ISK."
  142. 2360 PRINT"  [197][201][206][212][210][197][212][197][206] - [196]U BETRITTST EINE [194]URG,...";
  143. 2370 PRINT"  [215][197][199][215][197][210][198][197][206],[216][217] - [215]EGWERFEN DES [199]EGEN-"
  144. 2380 PRINT"                 STANDES [216][217]."
  145. 2390 PRINT"  [201][211][211] - [211]TAERKT DICH SOLANGE DU NOCH"
  146. 2395 PRINT"        [214]ERPFLEGUNG HAST."
  147. 2400 PRINT"                                     >>";
  148. 2405 POKE53265,27:POKE198,0:WAIT198,1:GETG$:POKE53265,11
  149. 2410 PRINT"[147]";
  150. 2420 PRINT"  [198][213][197][204][204][197],[216][217] - [198]UELLT DEN [199]EGENSTAND [216][217]"
  151. 2430 PRINT"              M. [215]ASSER,FALLS VORHANDEN"
  152. 2440 PRINT"  [204][201][197][211],[216][217]   - [196]U LIEST Z.[194]. EIN [194]UCH."
  153. 2450 PRINT"  [193][206][199][210][197][201][198][197][206] - [196]U GREIFST AN."
  154. 2460 PRINT"  [193][194][215][197][200][210][197][206]  - [196]U VERTEIDIGST DICH."
  155. 2470 PRINT"  [200]-[210]-[206]-[211]-[215]-[207] FUER D. [210]ICHTUNGSANGABEN  "
  156. 2471 PRINT"[199]ESAGT SEI NOCH, DASS [211][193][214][197] NUR  AUSSER-"
  157. 2472 PRINT"HALB  VON [194]URGEN, [211]IEDLUNGEN , ... VER-"
  158. 2473 PRINT"WENDET WERDEN KANN.[144][212][201][208]: [211]UCHE DIE [210]INGE"
  159. 2474 PRINT"           HINTER [205]AUERN ...!"
  160. 2480 PRINT"[215]AEHREND DU SPIELST SIEHST DU LINKS OBEN";
  161. 2490 PRINT"DEN  [193]USSCHNITT DES  [196]REISTROMLANDES, IN";
  162. 2500 PRINT"DEM DU DICH GERADE BEFINDEST. [196]ER WEISSE";
  163. 2510 PRINT"[210]AHMEN ZEIGT DEINE GENAUE [208]OSITION.[206]EBEN";
  164. 2520 PRINT"DEM [204]ANDSCHAFTSAUSSCHNITT FINDEST DU DIE";
  165. 2530 PRINT"[193]NZEIGE FUER [214]ERPFLEGUNGSEINHEITEN,[203]RAFT";
  166. 2540 PRINT"[199]OLDSTUECKE UND [193]NZAHL DER [210]INGE, DIE DU";
  167. 2550 PRINT"BEREITS ERBEUTET HAST.[196]ARUNTER UND UNTER";
  168. 2560 PRINT"DER  [197]INGABEZEILE BEFINDET  SICH JE  EIN";
  169. 2570 PRINT"[193]USGABEFENSTER ZUR [193]USGABE VON [196]ATEN."
  170. 2580 PRINT"[193]LTES ODER NEUES [211]PIEL (A/N)?-";:POKE53265,27
  171. 2590 POKE198,0:WAIT198,1:GETG$:IFG$<>"A"ANDG$<>"N"THEN2590
  172. 2600 PRINTG$;:IFG$="N"THEN3000
  173. 2605 GOSUB2610:GOTO2680
  174. 2610 PRINTCHR$(14);"[147]       [203]ASSETTE ODER [196]ISKETTE ?-";
  175. 2620 GETTT$:IFTT$<>"K"ANDTT$<>"D"THEN2620
  176. 2630 PRINTCHR$(ASC(TT$)+32):PRINT
  177. 2640 PRINT"       [198]ILENAME: [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][145][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";:K$=""
  178. 2645 FORK=1TO16:POKE198,0:WAIT198,1:GETG$
  179. 2650 IFG$=CHR$(13)THENK=16:NEXT:PRINT"":RETURN
  180. 2660 IF(G$<"A"ORG$>"Z")AND(G$<"[193]"ORG$>"[218]")ANDG$<>" "THENK=K-1:NEXT
  181. 2670 K$=K$+G$:PRINTG$;:NEXT:PRINT"":RETURN
  182. 2680 IFTT$="K"THENOPEN1,1,0,K$
  183. 2685 IFTT$="D"THENK$=K$+",S,R":OPEN1,8,2,K$
  184. 2690 INPUT#1,X:INPUT#1,Y:INPUT#1,VE:INPUT#1,KR:INPUT#1,GE:INPUT#1,RI:INPUT#1,IR
  185. 2700 INPUT#1,T$:INPUT#1,ZB:INPUT#1,HB:INPUT#1,HA:INPUT#1,EI:INPUT#1,FO
  186. 2710 INPUT#1,AU:INPUT#1,LO:INPUT#1,AN:INPUT#1,BE:INPUT#1,G$
  187. 2715 CLOSE1:IFTT$="K"THEN2720
  188. 2717 OPEN15,8,15:INPUT#15,A,G$,K,K:CLOSE15:IFA<>0THEN2605
  189. 2718 GOTO2800
  190. 2720 PRINT"[200]ABE ";CHR$(34);G$;CHR$(34);" GEFUNDEN."
  191. 2730 PRINT"[215]ILLST DU DIESES [211]PIEL FORTSETZEN ([202]/[206])?"
  192. 2740 GETG$:IFG$<>"N"ANDG$<>"J"THEN2740
  193. 2750 IFG$="N"THEN2605
  194. 2800 TI$=T$:E$="[147]"+CHR$(142):GOTO20000
  195. 3000 X=17:Y=15:VE=3500:KR=100:GE=0:RI=0:TI$="000000":E$="[147]"+CHR$(142):GOTO20000
  196. 3500 IFPX=-1THENP=1:GOTO3520
  197. 3510 P=H(PY,PX)
  198. 3520 R$="RICHTUNGEN":POKEVC+17,11:GOSUB3530:GOTO3760
  199. 3530 PRINT"[147]":FORK=2TO5:PRINTTAB(K)"[144][205]"SPC(35-2*K)"[206]":NEXT
  200. 3540 PRINT"      [207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
  201. 3550 FORK=1TO8:PRINT"      [165]"SPC(23)"[167]":NEXT
  202. 3560 PRINT"      [204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
  203. 3570 FORK=5TO2STEP-1:PRINTTAB(K)"[206]"SPC(35-2*K)"[205]":NEXT:IF(PAND8)=8THENR$=R$+"-S"
  204. 3580 IF(PAND4)<>4THEN3620
  205. 3590 R$=R$+"-N":PRINT"","     [175][175][175][175][175][175][175]":PRINT,"    [167][205][175][175][175][175][175][206][165]"
  206. 3600 FORK=1TO6:PRINT,"[167][167]     [165][165]":NEXT:PRINT,"[186][206]     [205][204]"
  207. 3610 POKE214,10:PRINT:PRINT,"[175][175][175][175][175]"
  208. 3620 IF(PAND32)<>32THEN3660
  209. 3630 R$=R$+"-W":PRINT" [167][205] ":PRINT" [167] [205]"
  210. 3640 PRINT" [167][183][208]":FORK=1TO9:PRINT" [167] [167]":NEXT
  211. 3650 PRINT" [167][175][186]":PRINT" [167]   ":PRINT" [167] ":PRINT" [206]"
  212. 3660 IF(PAND16)<>16THEN3700
  213. 3670 R$=R$+"-O":PRINT"",,,"[206][165]":PRINT,,,"[206] [165]"
  214. 3680 PRINT,,,"[207][183][165]":FORK=1TO9:PRINT,,,"[165] [165]":NEXT:PRINT,,,"  [205][204][175][165]"
  215. 3690 PRINT,,,"     [165]":PRINT,,,"     [165][157][205]"
  216. 3700 IF(PAND2)<>2THEN3730
  217. 3710 R$=R$+"-H":PRINT"":PRINT,,"[157][157][175][175][175][175][175][175][175][175]":PRINT,,"[157][157][205][205][221][175][175][221][206][206]"
  218. 3720 PRINT,,"[157][205][171][192][192][179][206]":FORK=1TO7:PRINT,,"[221][221]":PRINT,,"[171][192][192][179]":NEXT
  219. 3730 IF(PAND1)<>1THEN3755
  220. 3740 R$=R$+"-R":POKE214,15:PRINT:PRINT,," [204][175][186]":PRINT,," [204][175][186]":PRINT,,"[206][165] [167][205]"
  221. 3750 PRINT,,"[157][206][206][207][183][208][205][205]":PRINT,,"[157][183][183][183][183][183][183][183]"
  222. 3755 RETURN
  223. 3760 F=20:IF(PAND64)<>64THEN3800
  224. 3770 F=21:POKE214,15:PRINT:PRINT," [175][175][175][175]":PRINT,"[206]   [206]":PRINT,"[157][206]   [206][206]"
  225. 3780 PRINT,"[157][157][206][175][175][175][206][206]":PRINT,"[157][157][157][170] ==([206]":PRINT,"[157][157][183][183][183][183]"
  226. 3790 R$=R$+";-LIES,BUCH"
  227. 3800 POKE214,F:PRINT:PRINTR$
  228. 3810 POKEVC+17,27:GOSUB20410:PRINT"[145][145][145][145][145]"
  229. 3850 IFK$="N"AND(PAND4)=4THENPY=PY-1:GOTO 3500
  230. 3860 IFK$="S"AND(PAND8)=8THENPY=PY+1:GOTO 3500
  231. 3870 IFK$="O"AND(PAND16)=16THENPX=PX+1:GOTO 3500
  232. 3880 IFK$="W"AND(PAND32)=32THENPX=PX-1:GOTO4000
  233. 3890 IFK$="R"AND(PAND1)=1THENPY=10:PX=9:GOTO 3500
  234. 3900 IFK$="H"AND(PAND2)=2THENPX=-1:GOTO 3500
  235. 3910 IFK$<>"LIES,BUCH"THEN4020
  236. 3920 IF(PAND64)<>64THENK$="":GOTO3910
  237. 3930 ZB=255:PRINT"[147] DAS BUCH DES MAGIERS:"
  238. 3940 PRINT"  SWIM-FAEHIKEIT ZU SCWIMMEN"
  239. 3942 PRINT"  BEEM-ZUFAELLIGER STANDORTWECHSEL"
  240. 3943 PRINT"  KILL-TOETET JEDEN IN SICHTWEITE"
  241. 3944 PRINT"  HELP-GESPRAECHSPARTNER W. HILFSBEREIT"
  242. 3945 PRINT"  FILL-FUELT EINEN RAUM MIT BETON AUS"
  243. 3946 PRINT"  KLAU-BEWIRKT EINEN DIEBSTAL"
  244. 3947 PRINT"  ANTI-VERWANDELT ZU STEIN"
  245. 3948 PRINT"  BOMB-LAESST EXPLODIEREN"
  246. 3950 PRINT" DOCH DENK DARAN: BENUTZE SIE NUR UM"
  247. 3960 PRINT"             GUTES ZU TUN !!!"
  248. 3970 FORK=1TO30000:NEXT
  249. 3980 H(0,0)=H(0,0)-64:PRINT" DAS BUCH LOEST SICH LANGSAM AUF..."
  250. 3990 FORK=1TO4000:NEXT:GOTO3500
  251. 4000 IFPX<>0ORPY<>0THEN3500
  252. 4005 PRINT:PRINT" DU KOMMST IN DEN RAUM DES MAGIERS, ALS  DIESER PLOETZLICH";
  253. 4007 PRINT" VERSCHWINDET...";
  254. 4010 FORK=1TO5000:NEXT:GOTO3500
  255. 4020 FORK=0TO7:IFK$<>D$(K)ORZB<>255THENNEXT:GOSUB40360:GOTO3500
  256. 4030 IFK=0ORK=1ORK=4THEN4100
  257. 4040 POKEVC+21,0:PRINT"[147][144] DU HAST EINEN SPRUCH DES HASSES BE-"
  258. 4050 PRINT" NUTZT. DU BIST DES TODES! DER MEISTER"
  259. 4060 PRINT" PERSOENLICH WIRD DICH RICHTEN..."
  260. 4070 FORK=1TO6000:NEXT:GOTO40000
  261. 4100 IFK=1THEN4200
  262. 4110 PRINT" DER SPRUCH ZEIGT KEINE WIRKUNG !!!";:FORK=1TO2000:NEXT:GOTO3500
  263. 4200 X=INT(30*RND(0))+8:Y=INT(30*RND(0))+8
  264. 4220 IFL(Y,X)<>4ANDL(Y,X)<>7THEN4200
  265. 20000 YY=Y:XX=X:IFKR<0THENKR=0
  266. 20010 PRINT"";E$;:E$=""
  267. 20020 FORK=Y-3TOY+3
  268. 20030 FORI=X-3TOX+3
  269. 20040 PRINTA$(L(K,I));
  270. 20050 NEXT:PRINT:PRINT:NEXT:PRINTB$(L(Y,X)):POKEVC+21,1
  271. 20060 PRINT"[154]";:FORK=1TO15:PRINTTAB(16);"[221]":NEXT:PRINT"";
  272. 20070 PRINTTAB(18);"VERPFLEGUNG :";VE;"[157]  "
  273. 20080 PRINTTAB(18);"KRAFT IN %  :";KR;"[157] "
  274. 20090 PRINTTAB(18);"GOLD        :";GE;"[157] "
  275. 20100 PRINTTAB(18);"RINGE       :";RI:PRINT
  276. 20300 IFRND(0)>(.1+AN)ORAT=1THEN20400
  277. 20310 AT=1:PRINTF$:IFRND(0)>.7THENU=1:PRINTI$:GOTO20320
  278. 20315 PRINTH$
  279. 20320 IFL(Y,X)<>8ANDL(Y,X)<>0ANDL(Y,X)<>11ANDL(Y,X)<>12THENJ$=A$:GOTO20400
  280. 20330 J$=B$
  281. 20400 IFAT=1THENPRINTJ$
  282. 20402 PRINT"[154][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";
  283. 20404 IFKR=0THEN40000
  284. 20406 IFTC=1THEN26100
  285. 20408 GOSUB20410:GOTO20420
  286. 20410 PRINT"KOMMANDO :                              [145][164][157]";:K$=""
  287. 20412 POKE198,0:WAIT198,1:GETG$:IFG$=CHR$(13)THENPRINT" [144]":RETURN
  288. 20414 IFASC(G$)=20ANDLEN(K$)>0THENK$=LEFT$(K$,LEN(K$)-1):PRINT" [157][157] [157][164][157]";:GOTO20412
  289. 20416 IF(ASC(G$)<65ORASC(G$)>90)ANDASC(G$)<>44THEN20412
  290. 20417 IFLEN(K$)>20THEN20412
  291. 20418 PRINTG$;"[164][157]";:K$=K$+G$:GOTO20412
  292. 20420 IFK$<>"N"ANDK$<>"S"ANDK$<>"W"ANDK$<>"O"THEN20600
  293. 20425 IFU=1THENPRINTC$:FORK=1TO1000:NEXT:PRINTD$:GOTO20000
  294. 20430 KR=KR-2-HA:IFK$="N"ANDY>4THENY=Y-1:GOTO20500
  295. 20440 IFK$="S"ANDY<35THENY=Y+1:GOTO20500
  296. 20450 IFK$="W"ANDX>4THENX=X-1:GOTO20500
  297. 20460 IFK$="O"ANDX<35THENX=X+1:GOTO20500
  298. 20470 PRINT" DEIN BOOT IST NICHT HOCHSEETAUGLICH !   [144]DU BIST ERTRUNKEN."
  299. 20480 GOTO40000
  300. 20500 L=L(Y,X):IFL<>0ANDEB=0ANDL<>11ANDL<>12THENBE=0
  301. 20510 IFL=0AND(HBAND1)=0THENPRINT"[144] DU BIST ERTRUNKEN.":GOTO40000
  302. 20520 IFL=8AND(ZBAND1)=0THEN30000
  303. 20530 IFL=6THENPRINTC$:FORK=1TO1000:NEXT:PRINTD$:Y=YY:X=XX:KR=KR-8:GOTO20000
  304. 20540 AN=0:IFL=4THENAN=.15
  305. 20550 IFL<>11THEN 20560
  306. 20553 IF BE=0 THENBE=1:GOTO 20000
  307. 20556 IF BE=2 THENBE=3:EB=1:GOTO 20000
  308. 20560 IF L=12 AND BE=1 THEN BE=2:GOTO20000
  309. 20590 GOTO 20000
  310. 20600 IFK$=""THENPRINTC$:FORK=1TO1000:NEXT:PRINTD$:GOTO20000
  311. 20605 IFAT=1THEN23000
  312. 20610 IFK$<>"LIST"THEN20700
  313. 20620 PRINT"":E$="[147]":T$=TI$:FORK=0TO7:IF(HBAND2^K)THENPRINTTAB(18);C$(K)
  314. 20625 NEXT:IFEI=1THENPRINTTAB(18);"EIMER"
  315. 20630 PRINT"":FORK=0TO7:IF(ZBAND2^K)THENPRINTTAB(32);D$(K)
  316. 20635 NEXT:PRINT"DRUECKE EINE TASTE"
  317. 20660 POKE198,0:WAIT198,1:TI$=T$:GOTO20000
  318. 20700 IFK$<>"ISS"THEN20800
  319. 20710 A=KR:KR=KR-1:VE=VE+31:FORK=ATO100:VE=VE-31
  320. 20720 IFVE<=0THENK=100:VE=VE+31:NEXT:GOTO20000
  321. 20730 KR=KR+1:NEXT:GOTO20000
  322. 20800 IFK$<>"EINTRETEN"THEN22000
  323. 20805 IFL(Y,X)=10THEN21100
  324. 20810 IFL(Y,X)<>9AND(L(Y,X)>3ORL(Y,X)=0)THENPRINTC$:FORK=1TO1000:NEXT:PRINTD$:GOTO20000
  325. 20820 IFL(Y,X)<>9THEN21300
  326. 20822 IFGE<20THENPRINTC$:FORK=1TO1000:NEXT:PRINTD$:GOTO20000
  327. 20824 IFY=11ANDX=18THEN40500
  328. 20830 POKEVC+21,0:E$="[147]":PRINT"[147] DIE SIEDLER HEISSEN DICH HERZLICHST"
  329. 20840 PRINT" WILLKOMMEN UND BIETEN DIR FOLGENDES AN"
  330. 20850 PRINT" JE 20 GOLDSTUECKE FUER:[145]"
  331. 20860 F=0:IFL(Y,X+1)=4THENPRINTTAB(24);C$(0):F=1
  332. 20865 IFL(Y,X-1)=8THENPRINTTAB(24);"EIMER":F=2
  333. 20870 FORK=1TO7:PRINTTAB(24);C$(K):NEXT:PRINTTAB(24);"VERPFLEGUNG*1500"
  334. 20880 PRINT" DU HAST";GE;"GOLDSTUECKE.":PRINT" WAS WUENSCHST DU ?-";:K$=""
  335. 20890 POKE198,0:WAIT198,1:GETG$:IFG$=CHR$(13)THEN20920
  336. 20900 K=ASC(G$):IFK<65ORK>90THEN20890
  337. 20910 K$=K$+G$:PRINTG$;:GOTO20890
  338. 20920 IFK$=""THENGOTO20000
  339. 20925 IFK$="EIMER"ANDF=2THENEI=1:HA=HA+1:GE=GE-20:GOTO20000
  340. 20930 IFK$=C$(0)ANDF=0THEN20830
  341. 20940 FORK=0TO7:IFK$=C$(K)THENK=7:NEXT:GOTO21030
  342. 20950 NEXT:IFLEFT$(K$,3)<>"VER"THEN21030
  343. 20960 PRINT:PRINT" WIEVIEL ?-";:K$=""
  344. 20970 POKE198,0:WAIT198,1:GETG$:IFG$=CHR$(13)THEN21010
  345. 20980 IFVAL(G$)=0ANDG$<>"0"THEN20970
  346. 20990 K$=K$+G$:PRINTG$;:GOTO20970
  347. 21010 F=VAL(K$):FORK=1TOF:IFGE-20>-1THENVE=VE+1500:GE=GE-20:NEXT:GOTO20000
  348. 21020 K=F+1:NEXT:GOTO20000
  349. 21030 F=8:FORK=0TO7:IFK$=C$(K)THENF=K:K=8
  350. 21040 NEXT:IFF=8OR(HBAND2^F)THEN20830
  351. 21050 GE=GE-20:HA=HA+1:HB=HB+2^F:GOSUB40400:GOTO20000
  352. 21100 IFT=1THEN25000
  353. 21110 POKEVC+21,0:PRINT"[147] [144]DU HAST DIE HOEHLE DES   M A G I E R S "
  354. 21120 PRINT" BETRETEN,-EINES DIENERS DES DAEMONS !! "
  355. 21130 PRINT"  ES GIBT KEIN ZURUECK, DENN IN DIESEM  "
  356. 21140 PRINT"  AUGENBLICK SCHLIESST SICH DIE HOHLE.  "
  357. 21150 PRINT"  ES GIBT NUR EINEN AUSWEG:"
  358. 21160 PRINT"  -EIN SCHMALER SCHACHT IM BODEN.":FORK=1TO8000:NEXT
  359. 21170 IFHBAND64THENH(0,0)=80:PX=-1:E$="[147]":GOTO3500
  360. 21180 PRINT"  DA DU KEINE! LEITER MITGEBRACHT HAST   "
  361. 21190 PRINT"  LAUTET DEIN URTEIL:"
  362. 21200 PRINT"  -TOD DURCH STURZ AUS 20 METERN HOEHE  "
  363. 21210 PRINT"  ODER"
  364. 21220 PRINT"  -TOD DURCH VERDURSTEN.":GOTO40000
  365. 21300 E$="[147]":L=L(Y,X)-1:IF(IRAND2^L)THENPRINTC$:FORK=1TO1000:NEXT:PRINTD$:GOTO20000
  366. 21315 IF(LOAND2^L)=2^LTHEN21800
  367. 21320 IF(AUAND2^L)=2^LTHEN21700
  368. 21330 E$="":IFL<>0THEN21400
  369. 21340 PRINT" DER KOENIG ERTEILT DIR DIE AUFGABE,DIE"
  370. 21350 PRINT" ERDE ZU ERFORSCHEN.":FORK=1TO6000:NEXT
  371. 21360 PRINT"[145][145] DU SOLLST MIT EINEM BOOT WEIT WEG     "
  372. 21370 PRINT" FAHREN UND BERICHTEN WAS DU SIEHST.   ":FORK=1TO6000:NEXT
  373. 21380 PRINT"[145][145] ALS EINZIGES HILFSMITTEL GIBT DIR DER "
  374. 21385 PRINT" KOENIG EINE LEITER MIT !!!            ":HB=HB+64:HA=HA+1:FORK=1TO6000:NEXT
  375. 21390 PRINT"[145][145]                                       "
  376. 21395 PRINT"                                       ":AU=AU+1:LO=LO+1:GOTO20000
  377. 21400 IFL<>1THEN21460
  378. 21405 PRINT" ICH KOENIG DER PTOLEMAEEN GEBE DIR DIE"
  379. 21410 PRINT" AUFGABE,DIE INSEL EINMAL AUF DEM SEE-":FORK=1TO6000:NEXT
  380. 21420 PRINT"[145][145] WEG ZU UMRUNDEN. STARTE BEI DER BOJE  "
  381. 21430 PRINT" VOR DER KUESTE. VIEL GLUECK !         ":FORK=1TO6000:NEXT
  382. 21440 PRINT"[145][145]                                       "
  383. 21450 PRINT"                                       ":AU=AU+2:LO=LO+2:GOTO 20000
  384. 21460 PRINT" DER KOENIG WEIGERT SICH DIR DEN RING"
  385. 21470 PRINT" FUER EINE AUFGABE ZU UEBERLASSEN":FORK=1TO6000:NEXT
  386. 21480 PRINT"[145][145] ER GIBT DIR EINE MOEGLICHKEIT, DICH ZU"
  387. 21490 PRINT" RECHTFERTIGEN U. DADURCH ZU UEBERLEBEN":FORK=1TO6000:NEXT
  388. 21500 PRINT"[145][145]                                       "
  389. 21510 PRINT"                                       "
  390. 21520 PRINT"[145][145] DU SAGST: ";:K$=""
  391. 21530 FORK=1TO4
  392. 21540 POKE198,0:WAIT198,1:GETG$:IFASC(G$)<65ORASC(G$)>90THEN21540
  393. 21545 K$=K$+G$:PRINTG$;:NEXT:PRINT:FORK=1TO1000:NEXT
  394. 21550 IFK$<>D$(3)THENPRINT" [144]DIE CHANCE IST VERTAN !!!":GOTO40000
  395. 21560 PRINT"                                       "
  396. 21570 PRINT"                                       "
  397. 21580 PRINT"[145][145] DER KOENIG WIRD PLOETZLICH UNGEMEIN"
  398. 21590 PRINT" HILFSBEREIT UND GIBT DIR DEN RING":FORK=1TO6000:NEXT
  399. 21600 PRINT"[145][145]                                       "
  400. 21610 PRINT"                                       "
  401. 21620 LO=LO+4:AU=AU+4:RI=RI+1:IR=IR+4:GOTO20000
  402. 21700 PRINT" DER KOENIG IST WUETEND,DA DU ZURUECK-"
  403. 21710 PRINT" KEHRTEST OHNE DIE AUFGABE ZU LOESEN.":FORK=1TO6000:NEXT
  404. 21720 PRINT"[145][145] UEBER DEIN WEITERES SCHICKSAL WIRD  "
  405. 21730 PRINT" DER [144]DAEMON ENTSCHEIDEN !!!            ":GOTO40000
  406. 21800 IFL=2THENPRINTC$:FORK=1TO1000:NEXT:PRINTD$:GOTO20000
  407. 21805 IF(HBAND1)<>1THEN40300
  408. 21810 IFL<>0THEN21980
  409. 21820 PRINT"BERICHTE MIR NUN,WELCHE AUSSAGE ZUTRIFFT";
  410. 21830 PRINT" 1[146] - ERDE,-EINE KUGEL DIE SICH DREHT."
  411. 21840 PRINT" 2[146] - ERDE,-EINE SCHEIBE."
  412. 21850 PRINT" 3[146] - ERDE,-KUGEL, MITTELPUNKT DES ALLS."
  413. 21860 PRINT" 4[146] - ERDE,-EIN QUADRAT MIT A=20000 KM^2"
  414. 21870 PRINT"WIR SCHREIBEN DAS JAHR 1607, EIN GROSSER";
  415. 21880 PRINT"AUGENBLICK. GIB DIE NUMMER AN: ";
  416. 21890 POKE198,0:WAIT198,1:GETG$:IF VAL(G$)<1 OR VAL(G$)>4 THEN21890
  417. 21900 PRINTG$:IFVAL(G$)=(PEEK(2050)-5) THEN E$="[147]":RI=RI+1:IR=IR+1:GOTO20000
  418. 21910 FORK=1TO2000:NEXT
  419. 21920 PRINT"[147]";:POKEVC+21,0
  420. 21930 PRINT"[144] DIE INQUISITION HAT EIN NEUES OPFER"
  421. 21940 PRINT" GEFUNDEN. DU WIRST DEIN ENDE AUF DEM"
  422. 21950 PRINT" SCHEITERHAUFEN FINDEN. NUR SO FINDEN"
  423. 21960 PRINT" KETZER IHRE GERECHTE STRAFE !!!":FORK=1TO2000:NEXT:GOTO 40000
  424. 21980 IFBE=3THENRI=RI+1:IR=IR+2:LO=LO+2:GOTO20000
  425. 21990 GOTO21700
  426. 22000 IFLEFT$(K$,9)<>"WEGWERFEN"THEN22500
  427. 22010 IFMID$(K$,10,1)="," THEN22030
  428. 22020 PRINT" SYNTAX ERROR":FORK=1TO1000:NEXT:PRINT"[145]             ":GOTO20000
  429. 22030 K$=MID$(K$,11)
  430. 22040 F=8:FORK=0TO7:IFK$=C$(K)THENF=K:K=8
  431. 22050 NEXT:IFF<>8AND(HBAND2^F)<>2^FTHEN20620
  432. 22060 IFF<>8THENHA=HA-1:HB=HB-2^F:GOTO20000
  433. 22070 IFK$="EIMER"ANDEI=1THENHA=HA-1:EI=0:FO=0:GOTO20000
  434. 22080 IFK$="EIMER"THEN20620
  435. 22090 IFK$<>"RING"THEN22020
  436. 22100 IFIR=7ANDRI>0THEN22120
  437. 22110 PRINTC$:FORK=1TO1000:NEXT:PRINTD$:GOTO20000
  438. 22120 IFL(Y,X)<>8ANDL(Y-1,X)<>8ANDL(Y+1,X)<>8ANDL(Y,X-1)<>8ANDL(Y,X+1)<>8THEN22110
  439. 22130 F=0:IFY<19ANDX>20THENF=2:GOTO22160
  440. 22140 IFY<22ANDX<18THENF=1:GOTO22160
  441. 22150 F=4
  442. 22160 IFDDANDFTHEN22110
  443. 22170 RI=RI-1:DD=DD+F:IFDD=7THEN22200
  444. 22180 PRINT" DER FLUSS BEDANKT SICH BEI DIR.":FORK=1TO3000:NEXT
  445. 22190 PRINT"[145]                                ":GOTO20000
  446. 22200 IFEI=1THEN22260
  447. 22210 PRINT" DER FLUSS IST WUETEND, -DU NICHT DARAN"
  448. 22220 PRINT" GEDACHT EIN GEFAESS MITZUBRINGEN, UM"
  449. 22230 PRINT" WASSER ZUM DAEMON BRINGEN ZU KOENNEN."
  450. 22240 PRINT" [144]DER FLUSS KANN SEINEN ZORN NICHT ZU-"
  451. 22250 PRINT" RUECKHALTEN UND ERTRAENKT DICH !!!":FORK=1TO3000:NEXT:GOTO40000
  452. 22260 POKEVC+21,0:PRINT"[147]    IM WASSER IST FOLGENDES ZU LESEN"
  453. 22270 FORK=1TO2000:NEXT:PRINT"[147]";CHR$(14):POKEVC+21,0
  454. 22280 PRINT"[196]IE [204]EGENDE,DIE DIR VERMUTLICH GELAEUFIG"
  455. 22290 PRINT"IST, IST BEREITS VOR 764 [202]AHREN VERFASST"
  456. 22300 PRINT"WORDEN.[211]EITDEM HAT DER [144][196] [193] [197] [205] [207] [206] SEINE"
  457. 22310 PRINT"[205]ACHT UM EIN [214]IELFACHES VERGROESSERT ..."
  458. 22320 PRINT"[197]R LAESST SICH ALSO NICHT MEHR SO LEICHT"
  459. 22330 PRINT"VERTREIBEN.[197]S IST SOGAR SO,DASS UNS KEIN"
  460. 22340 PRINT"[205]ITTEL BEKANNT IST IHN ZU BESEITIGEN ..."
  461. 22350 PRINT"[196]OCH HABEN WIR GEHOERT, DASS ES IN EINER"
  462. 22360 PRINT"DER [211]IEDLUNGEN EINE [218]EITREISE  764 [202]AHRE"
  463. 22370 PRINT"ZURUECK ZU KAUFEN GIBT. [196]IES SCHEINT DER"
  464. 22380 PRINT"EINZIGE [215]EG ZU SEIN.[199]EHE ALSO UND SUCHE!"
  465. 22390 PRINT"[214]IEL [199]LUECK !!!>>";:POKE198,0:WAIT198,1:GETG$
  466. 22400 PRINT"[147][206]OCH EINS:  [194]IST DU IN DER [218]EIT DER [211]AGE"
  467. 22410 PRINT" ANGEKOMMEN, DANN MUSST DU VERSUCHEN IN "
  468. 22420 PRINT" DEN [144][196] [213] [206] [203] [204] [197] [206]  [212] [213] [210] [205] ZU KOMMEN "
  469. 22425 L(11,18)=9
  470. 22430 FORK=1TO8000:NEXT:PRINT"[147]";CHR$(142):GOTO20000
  471. 22500 IFK$<>"LIES,BUCH"THEN22700
  472. 22510 IF(HBAND2^7)<>2^7THEN20620
  473. 22520 PRINT"[147]";CHR$(14):POKEVC+21,0
  474. 22530 PRINT"   [199][160][197][160][207][160][210][160][199][160][197][160][160][207][160][210][160][215][160][197][160][204][160][204]   1 9 8 4   "
  475. 22540 PRINT"[144][197]S WAR EIN KLARER, KALTER [212]AG IM [193]PRIL, "
  476. 22550 PRINT"UND DIE [213]HREN SCHLUGEN GERADE DREIZEHN, "
  477. 22560 PRINT"ALS [215]INSON [211]MITH, DAS [203]INN AN DIE [194]RUST "
  478. 22570 PRINT"GEPRESST, UM DEN RAUHEN [215]IND ...        "
  479. 22580 FORK=1TO9999:NEXT:PRINT
  480. 22590 PRINT" ... NUN WAR ES GUT, WAR ALLES GUT, DER "
  481. 22600 PRINT"[203]AMPF WAR BEENDET. [197]R HATTE DEN [211]IEG    "
  482. 22610 PRINT"UEBER SICH SELBST ERRUNGEN. [197]R LIEBTE   "
  483. 22620 PRINT"DEN [199]ROSSEN [194]RUDER.":FORK=1TO9999:NEXT:PRINT"[147]";CHR$(142):GOTO20000
  484. 22700 IFK$<>"LIES,KOMPASS"THEN22800
  485. 22710 IF(HBAND2^5)<>2^5THEN20620
  486. 22720 PRINT" DER KOMPASS ZEIGT IN RICHTUNG NORDEN !":FORK=1TO3000:NEXT
  487. 22730 PRINT"[145]                                       ":GOTO20000
  488. 22800 IFLEFT$(K$,6)<>"FUELLE"THEN22900
  489. 22810 IFMID$(K$,8)<>"EIMER"THENPRINTC$:FORK=1TO1000:NEXT:PRINTD$:GOTO20000
  490. 22820 IFL(Y,X)<>8ANDL(Y-1,X)<>8ANDL(Y+1,X)<>8ANDL(Y,X+1)<>8ANDL(Y,X-1)<>8THEN22110
  491. 22825 FO=1
  492. 22830 PRINT" DER EIMER IST VOLL.":FORK=1TO1000:NEXT:PRINT"[145]                    ":GOTO20000
  493. 22900 F=8:FORK=0TO7:IFK$=D$(K)AND(ZBAND2^K)THENF=K:K=8:GOTO22920
  494. 22910 IFK$=D$(K)THENK=8:NEXT:GOTO20620
  495. 22920 NEXT:IFF=8THEN23000
  496. 22930 IFF>1ANDF<>3THEN4040
  497. 22940 IFK$="SWIM"THENZB=ZB+2^F
  498. 22950 ZB=ZB-2^F:IFF=1THEN4200
  499. 22952 PRINT" DER ZAUBERSPRUCH ZEIGT KEINE WIRKUNG.":FORK=1TO3000:NEXT
  500. 22954 PRINT"[145]                                      ":GOTO 20000
  501. 23000 IFK$<>"ABWEHREN"THEN23100
  502. 23001 IFAT=0THENPRINTC$:FORK=1TO1000:NEXT:PRINTD$:GOTO20000
  503. 23003 C=0:IFL(Y,X)=0AND(HBAND16)=16THENC=C+.5:GOTO23006
  504. 23004 IF(HBAND8)=8THENC=C+.5
  505. 23005 IF(HBAND4)=4THENC=C+1
  506. 23006 IF(HBAND2)=2THENC=C+1
  507. 23007 F=RND(0):IFF>.3+C*.1THENC=0
  508. 23008 C=1:KR=KR-INT(5*F)
  509. 23010 IFU=0THEN23050
  510. 23020 PRINT" DIE JAEGER HABEN DICH NUR UMZINGELT."
  511. 23025 PRINT" ES IST ALSO NICHTS ABZUWEHREN."
  512. 23030 FORK=1TO6000:NEXT:PRINT"[145][145]                                       "
  513. 23040 PRINT"                                       ":GOTO20000
  514. 23050 IFC=0THEN20000
  515. 23060 AT=0:GE=GE+INT(20*F)+1:KR=KR+INT(2.5*F)
  516. 23070 PRINT" ERFOLGREICH ABGEWEHRT,";INT(20*F)+1;"GOLDSTUECKE":FORK=1TO2000:NEXT
  517. 23080 PRINT"[145]                                       ":GOSUB40440:GOTO20000
  518. 23100 IFK$<>"ANGREIFEN"THEN23200
  519. 23110 IFL(Y,X)=0AND(HBAND16)=16THENC=1:GOTO23140
  520. 23120 IF(HBAND4)=4THENC=1
  521. 23130 IF(HBAND8)=8THENC=C+1
  522. 23140 IF(HBAND2)=2THENC=C+1
  523. 23150 F=1:IFRND(0)>(.3+C*.1)THENF=0
  524. 23160 C=F*(INT(10*RND(0)+1)):KR=KR-0^F*HA-1:IFF=0THEN20000
  525. 23165 AT=0:U=0
  526. 23170 PRINT" ERFOLGREICH ABGESCHLOSSEN.":PRINTC;"GOLDSTUECKE":GE=GE+C
  527. 23175 FORK=1TO6000:NEXT
  528. 23176 PRINT"[145][145]                                       "
  529. 23180 PRINT"                                       ":GOSUB40440:GOTO20000
  530. 23200 IFK$<>"SAVE"THEN24000
  531. 23210 IFDD=0THEN23240
  532. 23220 PRINT" NICHT MOEGLICH. DU BIST SCHON IN DER"
  533. 23230 PRINT" SCHLUSSPHASE DES SPIELS !":FORK=1TO5000:NEXT:E$="[147]":GOTO20000
  534. 23240 POKEVC+21,0:T$=TI$:GOSUB2610
  535. 23250 IFTT$="K"THENOPEN1,1,2,K$:GOTO23260
  536. 23255 K$="@:"+K$+",S,W":OPEN1,8,2,K$
  537. 23260 PRINT#1,X:PRINT#1,Y:PRINT#1,VE:PRINT#1,KR:PRINT#1,GE:PRINT#1,RI:PRINT#1,IR
  538. 23270 PRINT#1,T$:PRINT#1,ZB:PRINT#1,HB:PRINT#1,HA:PRINT#1,EI:PRINT#1,FO
  539. 23280 PRINT#1,AU:PRINT#1,LO:PRINT#1,AN:PRINT#1,BE:PRINT#1,K$
  540. 23290 CLOSE1:PRINT:PRINT"[145]                              "
  541. 23295 PRINT"                          ":E$="[147]"+CHR$(142):GOTO20000
  542. 23395 PRINT"                          ":GOTO20000
  543. 24000 PRINTC$:FORK=1TO1000:NEXT:PRINTD$:GOTO20000
  544. 25000 POKEVC+21,0:IFTD=1THENTX=0:GOTO25300
  545. 25012 PRINTCHR$(14);"[147]  [196]U HAST DEN  [144][196] [213] [206] [203] [204] [197] [206]   [212] [213] [210] [205]  ":POKE198,0
  546. 25014 PRINT"  BETRETEN. [200]IER GELTEN ANDERE [199]ESETZE  "
  547. 25016 PRINT"  ALS AUSSERHALB, DENN ES HERRSCHT DER  "
  548. 25018 PRINT"  [144][196]AEMON. [206]IEMAND AUSSER [144]IHM DARF SOG.  "
  549. 25020 PRINT"  [218]AUBERSPRUECHE VERWENDEN, - VERGESSE  "
  550. 25022 PRINT"  DEINE [218]AUBERSPRUECHE ODER DU BIST AM  "
  551. 25024 PRINT"  [197]NDE DEINER [210]EISE ANGELANGT.[194]EFEHLE:  "
  552. 25026 PRINT"  [206][201][205][205],[215][197][199][215][197][210][198][197][206],[207][197][198][198][206][197],[211][195][200][204][201][197][211][211][197],[204][201][211][212]  "
  553. 25028 PRINT"  [204][197][197][210][197][206],[196][210][213][197][195][203][197][206],[214][197][210][199][197][211][211][197][206]. [193]LLE [194]EF.  "
  554. 25030 PRINT"  BIS AUF [204][201][211][212] / [214][197][210][199][197][211][211][197][206] MUESSEN VON  "
  555. 25032 PRINT"        ";CHR$(34);",[196]ING";CHR$(34);" GEFOLGT WERDEN.":PRINT
  556. 25034 PRINT"  [144][196]AEMONEN LIEBEN ES [199]OTT NAHE ZU SEIN[157][157]>>";
  557. 25074 DIMT(3,4,4):TD=1:FORF=0TO4:FORC=0TO4:READA:FORK=0TO3:T(K,F,C)=A:NEXTK,C,F
  558. 25075 DATA 24,48,56,48,40
  559. 25076 DATA 12,24,52,40,12
  560. 25077 DATA 28,44,16,28,44
  561. 25078 DATA 12,20,56,36,12
  562. 25079 DATA 20,48,52,48,36
  563. 25080 T(1,2,2)=4:T(2,2,2)=32:T(3,2,2)=8:T(1,2,0)=60
  564. 25100 T(0,2,3)=60:T(3,3,2)=60:T(2,2,1)=60:T(1,1,2)=60:KI=INT(3*RND(0)+1)
  565. 25230 GOSUB25290:T(3,TY,TX)=T(3,TY,TX)+1:T(2,TY,TX)=T(2,TY,TX)+2
  566. 25240 GOSUB25290:T(2,TY,TX)=T(2,TY,TX)+1:T(1,TY,TX)=T(1,TY,TX)+2
  567. 25245 GOSUB25290:T(1,TY,TX)=T(1,TY,TX)+1:T(0,TY,TX)=T(0,TY,TX)+2
  568. 25250 GOSUB25290:T(0,TY,TX)=T(0,TY,TX)+64
  569. 25260 GOSUB25290:T(1,TY,TX)=T(1,TY,TX)+64
  570. 25270 GOSUB25290:T(2,TY,TX)=T(2,TY,TX)+64
  571. 25280 GOSUB25290:T(3,TY,TX)=T(3,TY,TX)+64:S=1:TY=2:TX=0:WAIT198,1:GOTO25300
  572. 25290 TX=INT(5*RND(0)):TY=INT(5*RND(0)):RETURN
  573. 25300 GETG$:PRINT"[147]";CHR$(142):GOTO25330
  574. 25320 FORK=1TO4000:NEXT
  575. 25325 IFTX<0THENPRINT"[147]":GOTO20000
  576. 25330 R$="":P=T(S,TY,TX):POKEVC+17,11:GOSUB 3530
  577. 25335 IFS=0ANDTX=0ANDTY=0THENPRINT"[209][144]"
  578. 25340 IF(PAND64)<>64THEN25400
  579. 25350 POKE214,14:PRINT:PRINT,"[175][175][175][175][175][175]":PRINT,"[206]     [206][165]"
  580. 25360 PRINT,"[157][206]     [206] [165]":PRINT,"[157][207][183][183][183][183][208]  [165]":PRINT,"[157][165]    [167] [206]"
  581. 25370 PRINT,"[157][204][175][175][175][175][186][206]"
  582. 25380 IF(PAND128)=128THENPOKE214,15:PRINT:PRINT,"[165]":PRINT,"[165]"
  583. 25400 IF(S<>3ORTX<>2ORTY<>2)AND(S=1ORZB=0)THEN25430
  584. 25410 POKEVC+17,27:PRINT:PRINT"DER DAEMON HAT DICH WIE EINEN WURM ZER-"
  585. 25420 PRINT"TRETEN...";:FORK=1TO6000:NEXT:GOTO40000
  586. 25430 IFTC=0THEN25470
  587. 25440 IFVAL(TI$)<31THEN25600
  588. 25450 POKEVC+17,27:POKE214,21:PRINT:PRINT"DAS GEWOELBE HAT DICH"
  589. 25460 PRINT"                 UNTER SICH BEGRABEN...";:FORK=1TO6000:NEXT:GOTO40000
  590. 25470 IFHO=0OROH=1ORS<>3ORTY<>3ORTX<>2THEN25600
  591. 25480 POKEVC+17,27:PRINTCHR$(34);"PASST MIR GUT AUF,DASS DER FREMDE EIN-"
  592. 25490 PRINT"DRINGLING NICHT AUF DEN[144] KNOPF DRUECKT,"
  593. 25500 PRINT"DAS WAERE UNSER ALLER ENDE...";CHR$(34):OH=1
  594. 25510 FORK=1TO8000:NEXT:GOTO25320
  595. 25600 POKE214,21:PRINT:PRINT"";MID$(R$,2);"/";:L=11:POKEVC+17,27:GOSUB20410
  596. 25610 PRINT"[145][145][145][145]"
  597. 25630 IFK$="N"AND(PAND4)=4THENTY=TY-1:GOTO25330
  598. 25640 IFK$="S"AND(PAND8)=8THENTY=TY+1:GOTO25330
  599. 25650 IFK$="O"AND(PAND16)=16THENTX=TX+1:GOTO25330
  600. 25660 IFK$="W"AND(PAND32)=32THENTX=TX-1:GOTO25325
  601. 25670 IFK$="R"AND(PAND1)=1THENS=S-1:GOTO25330
  602. 25680 IFK$="H"AND(PAND2)=2THENS=S+1:GOTO25330
  603. 25690 IFK$<>"OEFFNE,KISTE"THEN25740
  604. 25695 IF(PAND64)<>64THEN25740
  605. 25700 IF(PAND128)=128THENPRINT"DIE KISTE IST BEREITS OFFEN.":GOTO25320
  606. 25710 POKE214,15:PRINT:PRINT,"[165]":PRINT,"[165]":POKE214,22:PRINT:T(S,TY,TX)=P+128
  607. 25720 IFS<>KIORHO=1THENPRINT"[145]DIE KISTE IST LEER.":GOTO25320
  608. 25730 PRINT"[145]IN DER KISTE LIEGT EIN STUECK PERGAMENT":GOTO25320
  609. 25740 IFK$<>"NIMM,PERGAMENT"THEN25760
  610. 25745 IF(PAND128)=0OR(PAND64)=0ORHO=1ORS<>KITHEN25760
  611. 25750 PRINT" AUF DEM PERGAMENT STEHT EIN ZAUBERWORT: HORCH";:HO=1:GOTO25320
  612. 25760 IFK$="VERGESSEN"THENZB=0:HO=0:PRINT"DU HAST ALLE SPRUECHE VERGESSEN":GOTO25320
  613. 25770 IFK$="SCHLIESSE,KISTE"AND(PAND128)THENT(S,TY,TX)=P-128:GOTO25320
  614. 25780 IFK$<>"LIST"THEN25860
  615. 25790 T$=TI$:PRINT"[147]  LISTE UEBER HAB UND GUT:"
  616. 25800 FORK=0TO7:IF(HBAND2^7)THENPRINT"  ";C$(K)
  617. 25810 NEXT:IFEI=1THENPRINT"  EIMER"
  618. 25820 IFHO=1THENPRINT"  PERGAMENT"
  619. 25830 PRINT"":FORK=0TO7:IF(ZBAND2^K)THENPRINT,,D$(K)
  620. 25840 NEXT:IFHO=1THENPRINT,,"HORCH"
  621. 25850 PRINT"  BITTE DRUECKE EINE TASTE"
  622. 25855 POKE198,0:WAIT198,1:TI$=T$:GOTO25330
  623. 25860 IFLEFT$(K$,10)<>"WEGWERFEN,"THEN25900
  624. 25870 PRINT"DU WOLLTEST EIGENTLICH NUR EINEN GEGEN-":ZB=0:HB=0
  625. 25880 PRINT"STAND WEGWERFEN,BIST ABER SO GUT DRAUF"
  626. 25890 PRINT"UND WIRFST ALLES WEG;-ES VERSCHWINDET.":FORK=1TO6000:NEXT:GOTO25320
  627. 25900 IFK$<>"LEEREN,EIMER"THEN25970
  628. 25905 IFFO=0THEN26050
  629. 25910 EI=0:PRINT"BEIM AUSLEEREN DES EIMERS GLEITET ER DIR";
  630. 25920 PRINT"PLOETZLICH AUS DEN HAENDEN UND FAELLT"
  631. 25930 PRINT"SCHEPPERND ZU BODEN...":FORK=1TO6000:NEXT
  632. 25940 PRINT"[145][145][145]SOFORT ERSCHEINT DER DAEMON,UM DICH ZU  ";
  633. 25950 PRINT"VERNICHTEN.ER BEKOMMT JEDOCH RASCH NASSE";
  634. 25960 PRINT"FUESSE UND VERSCHWINDET WIMMERND.":FORK=1TO6000:NEXT:GOTO25330
  635. 25970 IFK$<>"DRUECKEN,KNOPF"THEN26050
  636. 25980 IFS<>0ORTX<>0ORTY<>0THENPRINT"HIER IST KEIN KNOPF.":GOTO25320
  637. 26000 IFEI=1OROH=0THENPRINT"ER LAESST SICH NICHT DRUECKEN.":GOTO25320
  638. 26010 PRINT"DAS GESAMTE GEWOLBE BEBT PLOETZLICH UND"
  639. 26020 PRINT"DU SPUERST,DASS ES IN EINER HALBEN MIN."
  640. 26030 PRINT"[145]EINSTUERZEN WIRD...RENN UM DEIN LEBEN...";
  641. 26040 FORK=1TO7000:NEXT:T0$=TI$:TI$="000000":TC=1:L(20,20)=0:GOTO25330
  642. 26050 PRINT"NICHT MOEGLICH!":FORK=1TO1000:NEXT:GOTO25330
  643. 26100 PRINT
  644. 26110 PRINT" [166][166][166][166][166] [166]  [166] [166][166][166][166]        [166][166][166][166] [166]   [166] [166][166][166]"
  645. 26120 PRINT"   [166]   [166]  [166] [166]           [166]    [166][166]  [166] [166]  [166]"
  646. 26130 PRINT"   [166]   [166]  [166] [166]      [151]QR[146]   [166]    [166] [166] [166] [166]  [166]"
  647. 26140 PRINT"   [166]   [166][166][166][166] [166][166][166]    [151]ST[146]   [166][166][166]  [166] [166] [166] [166]  [166]"
  648. 26150 PRINT"   [166]   [166]  [166] [166]           [166]    [166] [166] [166] [166]  [166]"
  649. 26160 PRINT"   [166]   [166]  [166] [166]           [166]    [166]  [166][166] [166]  [166]"
  650. 26170 PRINT"   [166]   [166]  [166] [166][166][166][166]        [166][166][166][166] [166]   [166] [166][166][166]"
  651. 26180 PRINT"";LEFT$(T0$,2);":";MID$(T0$,3,2);
  652. 26190 PRINT":";RIGHT$(T0$,2);"  ZEIT[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]DRUECKE EINE TASTE"
  653. 26200 POKE198,0:WAIT198,1:RUN40270
  654. 30000 PRINT" ALS NICHTSCHWIMMER IST ES NICHT RATSAM  EIN BAD IM FLUSS ZU NEHMEN."
  655. 30010 PRINT" [144]DU BIST ERTRUNKEN.":GOTO 40000
  656. 40000 FORK=1TO8000:NEXT:POKEVC+21,0
  657. 40020 PRINT"[144][147]":IFKR<=0THENPRINT" DU BIST AN ENTKRAEFTUNG GESTORBEN !!!"
  658. 40050 PRINTTAB(19)"[207][183][208]"
  659. 40060 PRINTTAB(18)"[207] [219] [208]"
  660. 40070 PRINTTAB(17)"[207]  [221]  [208]"
  661. 40080 PRINTTAB(16)"[207]       [208]"
  662. 40090 PRINTTAB(16)"[165]ER RUHE[167]"
  663. 40100 PRINTTAB(16)"[165]       [167]"
  664. 40110 PRINTTAB(16)"[165]  IN   [167]"
  665. 40120 PRINTTAB(16)"[165]       [167]"
  666. 40130 PRINTTAB(16)"[165]FRIEDEN[167]"
  667. 40140 PRINTTAB(16)"[165]       [167]"
  668. 40150 PRINTTAB(16)"[165]       [167]"
  669. 40160 PRINTTAB(16)"[165]MDCVIII[167]"
  670. 40170 PRINTTAB(16)"[165]       [167]"
  671. 40175 PRINTTAB(15)"[172]UUUUUUUUU[146][187]"
  672. 40180 PRINTTAB(14)"[172]UUUUUUUUUUU[146][187]"
  673. 40190 PRINTTAB(13)"[172]UUUUUUUUUUUUU[146][187]"
  674. 40200 PRINTTAB(12)"[172]UUUUUUUUUUUUUUU[146][187]"
  675. 40210 PRINTTAB(12)"UUUUUUUUUUUUUUUUU"
  676. 40220 PRINTTAB(12)"UUUUUUUUUUUUUUUUU"
  677. 40230 PRINT" MOECHTEST DU NOCH MAL SPIELEN (J/N)?-";
  678. 40240 POKE198,0:WAIT198,1:GETG$:IFG$<>"J"ANDG$<>"N"THEN40240
  679. 40250 PRINTG$:IFG$="N"THENSYS 64738
  680. 40260 RUN40270
  681. 40270 FORK=1TO(48+36*8):READA:NEXT:GOTO600
  682. 40300 PRINT" ICH SEHE, DU HAST KEIN BOOT BEI DIR."
  683. 40310 PRINT" DARAUS SCHLIESSE ICH, DASS DU DEINE"
  684. 40320 PRINT" AUFGABE NOCH NICHT ERFUELLT HAST. DOCH"
  685. 40330 PRINT" ICH LASSE GNADE VOR RECHT ERGEHEN UND"
  686. 40340 PRINT" VERLANGE ZUR STRAFE LEDIGLICH DIE 1/2"
  687. 40350 PRINT" DEINER VERPFLEGUNG";:FORK=1TO12000:NEXT:VE=INT(.5*VE):E$="[147]":GOTO20000
  688. 40360 PRINT:PRINT"NICHT MOEGLICH !          ":FORK=1TO1000:NEXT:RETURN
  689. 40400 IF F<>0 THEN RETURN
  690. 40410 PRINT:PRINT" EIN BEWOHNER DER SIEDLUNG KOMMT VORBEI"
  691. 40420 PRINT" UND HETZT UEBER DIE ";CHR$(34);"NUSS-SCHALE";CHR$(34);", DIE"
  692. 40430 PRINT" DU GERADE ERWORBEN HAST !!!":FORK=1TO10000:NEXT:RETURN
  693. 40440 PRINT"",,"[157][157][157]                    "
  694. 40450 PRINT,,"[157][157][157]                      ":RETURN
  695. 40500 IFGE<200THENPRINTC$:FORK=1TO1000:NEXT:PRINTD$:GOTO20000
  696. 40510 POKEVC+21,0:PRINT"[147]"
  697. 40520 PRINT" DER KOENIG HAT, NACHDEM ER KEINEN RING "
  698. 40530 PRINT" MEHR HAT,SEINE KRONE ABGELEGT UND SICH "
  699. 40540 PRINT" AUF DIE PRODUKTION VON ZEIT-MASCHIENEN "
  700. 40550 PRINT" KONZENTRIERT.    ER VERLANGT FUER EINE "
  701. 40560 PRINT" REISE 200 GOLDSTUECKE,  WOBEI ES KEINE "
  702. 40570 PRINT" ROLLE  SPIELT  WIE  WEIT  SIE  GEHT  ! "
  703. 40580 PRINT" NIMMST DU DAS ANGEBOT AN (J/N)?-";
  704. 40590 POKE198,0:WAIT198,1:GETG$:IFG$<>"N"ANDG$<>"J"THEN40590
  705. 40600 PRINTG$:IFG$="N"THENE$="[147]":FORK=1TO1000:NEXT:GOTO20000
  706. 40605 GE=GE-200
  707. 40610 PRINT" WIEVIEL JAHRE MOECHTEST DU ZURUECK-     REISEN ?-";:K$="":FORK=1TO3
  708. 40620 POKE198,0:WAIT198,1:GETG$:IFG$<>"0"ANDVAL(G$)=0THEN40620
  709. 40630 PRINTG$;:K$=K$+G$:NEXT:IFK$="764"THENT=1:L(11,18)=7:FORK=1TO2000:NEXT:E$="[147]":GOTO20000
  710. 40640 PRINT"[144] DIE ZAHL WAR FALSCH, -DU HAST VERSAGT!":GOTO40000
  711.